COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TLOAD
C00004 ENDMK
C⊗;
	TITLE TLOAD
	A←1 ↔B←2↔C←3 ↔D←4 ↔E←5↔X←6↔Y←7
	P←17 ↔ NBUFS←4 ↔ S←10 
PDL:	BLOCK 22
IBUF:	BLOCK 4
FILNAM:	'DSKOP '
	'DMP   '
	0
	0

STAR:	MOVE P,[PDPO:	IOWD 22,PDL]
	OPEN 11,[14↔'DSK   '↔IBUF]
	JRST 4,.
	INBUF 11,NBUFS
	LOOKUP 11,FILNAM
	JRST 4,.

	HRROI Y,-401	;-777 FOR LAST PROM (256 BYTES)
			;-5 FOR MADDR 1000
			;-771 For 176000
LOADER:	PUSHJ P,INP+1
	HRRZI X,200
	ADD X,IBUF+2
	AOJL Y,LOADER
	
	OUTSTR [ASCIZ/	Data starts next line:
/]

	HRLI C,-400	;-400 FOR 256 PROM
LOAD:	PUSHJ P,INP
	HRRZ A,1(X)
	ADDI S,(A)
	ANDI A,17
	ORI A,60	;ASCII
	OUTCHR A
	HRRZ A,1(X)
	LSH A,-4
	ANDI A,17
	ORI A,60
	OUTCHR A

ADX:	AOBJP C,DONE
	AOBJN X,LOAD+1
	JRST LOAD


DONE:	XORI S,-1	;GET CHECK SUM
	AOJ S,
	ANDI S,377
	OUTSTR [ASCIZ/End data, check sum:/]
	HRRZI A,(S)
	ANDI A,17
	ORI A,60
	OUTCHR A
	LSH A,-4
	ANDI A,17
	ORI A,60
	OUTCHR A
	
	EXIT

INP:	HRRM X,IBUF+1
	IN 11,
	JRST SETX
	STATO 11,20000
	JRST 4,.
ERROR:	OUTSTR [ASCIZ/?????/]
	EXIT


SETX:	HRRZ X,IBUF+2
	MOVNI X,(X)
	HRLZI X,(X)
	HRR X,IBUF+1
	POPJ P,
END STAR